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Here if the latest! The U.S. 0S9 Usergroup has 
folded. Ue can again thank Tandy for dropping 
the CoCo and Microware for dropping 68tf9 039. 
The brilliant Marketing decision by Tandy to 
discontinue the CoCo has certainly left a large 
nuftber of users, worldwide, out in the cold. 
Their strategy was that CoCo users would 
"upgrade" to their Messy DOS Machines. Whilst 
their HS-OQS based Machines are no doubt of good 
quality, I ai sure that very few ex CoCo'ers 
rushed to buy a Tandy MS-DOS Machine, certainly 
not flS9'ers anyway. 

The deiise of the U.S. Usergroup leaves the 
European 039 Usergroup and our own National QS9 
Usergroup as the only active 039 groups that we 
are aware of. Froa Messages on the CoCo 
Listserver in the States, it seems that there is 
at least interest in the Australian Usergroup, 
So we May get sone new Berbers froi the U.S.A. 
Despite the lack of support froa both Tandy and 
Microware, we believe that there are still a 
couple of years' life in the CoCo and 0S9 Level 
2. The obvious problem will be the availability 
of the CoCo QS9 operating system and other 
software utilities and applications. Until now, 
applications specifically for CoCo 0S9 have 
continued to grow through third party 
developers, but this will slow to a stop as tine 
goes on. 

I do apologize to those "Natgroup" members 
running OSK, for our continued concentration on 
Tandy's CoCo, but it is a fact that CoCo users 
are at the Mosent in the majority. 
So where do we go froM here? Firstly, to the 
new subscribers and those just beginning the 0S9 
experience, don't give up! because we are not 
going to. Ue do have soae new aeabers who are 
just beginning to tackle 039, and we encourage 
you to continue. The knowledge gained will 
serve you well in the future, whatever that may 
be. 

HS-DOS is not the alternative for any 0S9'er. 
OSK is the obvious way to go! The question is, 
what platform do we use, and what will be the 
cost? 

He have a few eeabers running OSK on ATARI 
Machines, which May be an alternative, but Atari 



have not done Much with hardware upgrades 

lately, and the OSK operating systea for it is 

expensive. I believe that there is a "windows" 

environaent also available if you have plenty of 

Money. Perhaps soMeone out there could set ne 
straight on this if I have it wrong. 

There is also an OSK port for the AMIGA but for 
eost hobbyists the price of this is just out of 
the question. 

It seeaed to us that the Much talked about HM/1 
would be the way to go, but it is starting to 
look like just a lot of talk still. Just try to 
buy one and see how you go. Fron the specs we 
have seen the HM/1 , complete with the OSK 
operating system, looks a good package, at good 
value. It offers Multiaedia coaputing, high 
resolution graphics, stereo sound, plus the 
Multi-tasking and window environaent with which 
we are faailiar. If "Interactive Media Systeas" 
are going to get tnis Machine off the ground, 
they certainly need to iaprove their product 
availability and distribution. 
What about QS/9dde?? The price of P. C.'s has 
fallen in recent tiees, so Much so, that a 86336 
SX Machine is now affordable, especially if you 
shop around. Add to the hardware price about 
iieee.ee (I believe) for the OS/Sdee operating 
system and you can be up and running in a 
faailiar 0S9 environaent. So this option aay 
well be worth soae consideration. What do you 
think?? 

Well, for the tiae being at least, I have just 
convinced Myself that ay CoCo3's with QS9 Level 
2 are in for a workout for a while yet. 
0S9 Level 2 At a newsletter Meeting last week, 
we were conteaplating the running of stock 
standard 039 level 2, as it was distributed by 
Tandy, and the thought was rather alaraing. The 
Level 2 system we are now running has so aany 
"patched" systea Modules that it hardly 
represents the original. So in the near future 
we will docuttent all those patches which have 
improved the perforMance in both speed and 
reliability. 

Until next tiae: Cheers, Gordon. 
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ft Basiced Tutorial 

by Bob Devries 



Another probles ares for prograasers 
recently converted to BasiceS is the TYPE 
statesent. This is used when a prograsaer needs 
to luftp together several variables to be 
referred to as one unit. Let te give you an 
exa»ple. Say I want to write a little database 
prograaae (as ay earlier version in C) to keep 
nases, addresses, and phone nusbers. Here's what 
the start of the prograsae would look like: 

PROCEDURE Prograi 

TYPE record=surnafte:STRINGE2ej; 

firsinaie:STRING[2ej; street :STRINS [263: 



If the disk file was 28 entries Ion: 



>A T 



city;STRIN6[2ej; 
postcode: INTEGER; 
phone :STRIN6[73 
DIM address: record 



state:STRIN5E33 
area:3TRIN6 [33 



So here I have the sase database record as I 
have used previously (a series of articles 
starting March 1989). A database entry is a 
cosplex variable called address of TYPE record. 
That is, the variable record has in it all the 
variables referred to in record. So to refer to 
the city field in the database entry, I would 
call it address. city, easy see ? 



wanted to get the fifteenth one, I would first 
seek to the fourteenth (all records start at the 
zeroeth) record like this: 



SEEK #fileJ4 t SIZE(address) 

Then I would read the entry as before. 

Here is a saaple piece of prograffl&e which 
sets up the database record in neiory using 
TYPE, and fills it, and then displays it in an 
overlay window. One thing you should be aware 
of, you MUST initialise variables in Basic89 ; 
because all variables are filled with garbage 
after being dimensioned. 

PROCEDURE Progras 

TYPE record=surnaae : STRINGL283 

firstna»e:STRIN6[203; street iSTRINS [283 



city:STRINfiC293; 
postcode: INTEGER; 
phone :STRIN6C73 
DIM address:record 
DIM file: INTEGER 
DIM a:STRINGEI3 



state:STRIN5E33 
area:STRING 133 



If I want to fill each of the variables of 
the coaplex variable address, I could do this: 

address. surname = "DEVRIES 1 
address. firstnaee = "BOB 8 
address. street = "21 Virgo Street" 
address, city = MNALA" 
address. state = B Qld" 
address. postcode = 4877 
address. area = "87* 
address. phone = "3727816" 

If I want to write a database entry to a 
disk file, I wGuid aerely do this; 

PUT fffile, address 



This will put all the variables which take 

up the couples variable address into the 

diskfile one after the other. Of course the 

diskfile r.ust have been opened first. 

Similarly, to read an existing entry fros a 
diskfile. I would use this line; 



PRINT CHR$(12) 

address . surnane^Bentzen* 
address. firstna»e =,i Gordon' 
address. street= B 8 Odin Street" 
address . c i ty="Sunnybank s 
address. staie="Qld" 
address. postcode=4i89 
address. area= 6 87" 
address. phone="3i43831 i 

RUN gfx2i a 0ySet B ; i, 9,4,32,11,1,8} 
RUN gfx2C0VSei ,i ,e l i8, 5,36,9,9,1) 

PRINT B Surnaae; B ; 

PRINT address. surnaae 

PRINT "Firstnaae: 6 ; 

PRINT address. firstnaee 

PRINT "Street:"; 

PRINT address. street 

PRINT "City:"; 

PRINT address. city 

PRINT B State: B ; 

PRINT address. state 

PRINT 'Postcode:*; 

PRINT USING "iE-'.address.oosuode 
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PRINT address. area 

PRINT 'Phone: 8 ; 

PRINT address. phone 

a= Bf 

WHILE a= 8B DO 

RUN inkeyCa) 

ENDUHILE 

OPEN if ile, "DATABASE 8 lUPOATE 
SEEK ffiie^e 
PUT tfile.address 
CLOSE tfile 

RUN gfx2C0«End') 
RUN gfx2("0tfEnd B ) 

I'll give you a run-down on what is in this 
prograaae. 

First, the TYPE coaaand, setting up the 
aeaory isage of the database record. Mext, 
di sens ion the coaplex variable, as veil as sose 
other useful variables. Then I filled the 
various parts of the coaplex variable with data 
for one record of the database with Gordon's 



naae, address etc. No doubt you'll understand 
now that to access each part of the database 
record, its identifier is ' address. xxxxxxx' 
where the x's are the various sections of the 
record, e.g. city. 

Now to display the record, I open an overlay 
window big enough to display the fields of the 
record, and print thei. Notice the use of PRINT 
USING for the postcode field. For this, you oust 
use a foraat length of one aore than the length 
of the variable, hence, MS'. Next I wait for a 
keypress before closing the overlay, and writing 
the record, and quitting. In this exaaple, the 
record is always written to position zero of the 
file. 

Next aonth, I'll show you how to convert 
prograaees from other BASIC languages, including 
RSBasic, S^Basic etc. I 1 11 include a working 
exaipie, in both the original format, and the 
converted Easily prograiae. 

Regards, 
Bob Devries 



ooooooooooOOOQDGGOOOoooooooooo 

C Tutorial 
Chapter 1 - Setting Started 



WHAT IS AN IDENTIFIER? 

Before you can do anything in any language, 
you Bust at least know how you naae an 
identifier. An identifier is used for any 
variable, function, data definition, etc. In 
the prograiaing language C, an identifier is a 
combination of aiphar.uaeric characters, the 



reference aanual to find cut how aany 
characters are significant for your 
compiler. 

It should be pointed out that soae C 
coipilers allow use of a dollar sign in an 
identifier naae, but since it is not universal, 
it will not be used anywhere in this tutorial. 



first being a letter of the alphabet or an Check your documentation to see if it is 



underline, and the regaining being any letter of 

the alphabet, any numeric digit, or the 

underline. Two rules aust be kept in sind when 
nating identifiers. 

1, The case of alphabetic characters is 
significant. Using "INDEX 6 for a variable 
is not the saae as using B index a and 
neither of thes is the saae as using 
"InOeX 1 for a variable. All three refer to 
different variables. 

2. As C is defined, up to eight significant 

characters can De used and sill be 



considered sigtu 



are used. 
cosDiler. 
your *i , js r 



the 
"his 



If sore th; 

ifr;nr<=" 
5v not b- 



perwissible for your particular coapiler. 

WHAT ABOUT THE UNDERLINE 7 

Even though the underline can De used as 
part of a variable naae, it seeas to be used 
very little by experienced C prograaaers. It 
adds greatly to the readability of a program to 
use descriptive naaes for variables and it would 
be to your advantage to do so. Pascal 
prograaaers tend to use long descriptive naaes, 
but ftost C programmers tend to use short cryptic 
names. Host of the example progress in this 
tutorial use very short naaes for that reason. 



oraputer program has two 

r <-. c riz* z j r r! i K c r, * r\ n r- i v-. 



itltlfiC t ,-. 
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highly dependent on one another and careful 
planning of both will lead to a vei 1 planned and 
well written prograa. Unfortunately, it is not 
possible to study either coapleteiy without a 
good working knowledge of the otner. For this 
reason, this tutorial will juip back and forth 
between teaching Methods of prograa writing and 
Methods of data definition. Siaply follow along 
and you will have a good understanding of both. 
Keep in aind that, even though it seeas 
expedient to soeetiaes juep right into the 
progras coding, time spent planning the data 
structures will be well spent and the final 
progras will reflect the original planning. 

HOW THIS TUTORIAL IS WRITTEN 

As you go through the exaapie prograss. you 
will find that every prograe is coapiete. There 
are no prograe fragments that could be 
confusing. This allows you to see every 
requirement that is needed to use any of the 
features of C as they are presented. Soae 
tutorials I have seen give very few, and very 
coEpiex exaMples. They really serve aore to 
confuse the student. This tutorial is the 
coaplete opposite because it strives to cover 
each new aspect of prograsaing in as siaple a 
context as possible. This aethod ; however, 
leads to a lack of knowledge in hot the various 
parts are combined. For that reason, the last 
chapter is devoted entirely to using the 
features taught in the earlier chapters. It 
will illustrate how to put the various features 
together to create a usable prograe. They are 
given for your study, and are not coapietely 
explained. Enough details of their operation 
are given to allow you to understand how they 
work after you have coipleted all of the 
previous lessons. 

A DISCUSSION OF SOHE DF THE FILES 
CCL.BAT 

EED: this part refers to files on the original 
HSDos distribution, and can only be used on 
coaputers which run HSDos. These files are, 
however , included in the c_tutor.ar file on PO 
disk r.usber 111 

This file, which does not exist on the 
distribution disk, is the batch file that calls 
in an editor, then the compiler (Pass ! and Pass 
2. if it exists), and finally runs the resulting 



compiled prograa. There are several exaaples of 
batch files which can De used with various 
coapilers given in the ■COMPILER. 0QC s file on 
the distribution diskette. It is up to you to 
type in a batch file for use with your 
particular coapiier, considering also the Method 
required to call in your editor. To use it. 
siaply type the batchfile nase with the desired 
filenaae. After typing in your particular 
CCL.BAT file, try it by typing CCL FIR5TEX. You 
will get the source file displayed on the 
Monitor by your editor. If you don't have one 
of the coapilers listed in the "COMPILER. DOC 8 
file, you will have to Modify the batch file for 
your particular coapiier. 

The pass or passes of the coapiier will be 
executed, followed by the linking process. The 
final progras will be loaded and run, then the 
files generated by the process will be erased to 
prevent filling the disk up. 
If you have a hard disk available, it will be up 
to you to Modify the batch file to perfora the 
above described operations. Even though you 
will have a lot of files to cospiie and run, you 
will find that a batch file siailar to this will 
do Most of the work for you and you will proceed 
very quickly. 

In order to do the prograasing exercises, you 
will need to go through the saae steps as when 
running the example programs. This is siaple to 
do by 5iaply typing your own filenaae with the 
CCL prograa call. It is highly recoaaended that 
you do the prograaning exercises to gain the 
programming experience. 

LIST. EXE 

This file will list the source files for you 
with line nuabers and filenaae. To use it, 
sisply type "LIST" followed by the appropriate 
filename. Type LIST FIRSTEX.C now for an 
exaspie. The C source code is given later in 
Chapter 14 along with a brief description of its 
operation. 



PRINTALL.BAT 

This is a batch file that will call the 
above LIST. EKE file once for each of the exaapie 
C orograas, printing all of the files out. If 
you want a hardcopy of all of the files, enter 
PRINTALL and watch as your or inter fills about 
150 sheets of paper with C proqraa.5. 



ooooooooooOODOODOOt 



i ooooooo 
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ERRATA 



ERRATA 



ERRATA 



ERRATA 



ERRATA 



ERRATA 



An error exists in the listing for the prograwe 'OIRL' in last month's newsletter. On page 9, the 
sixth last line of code, currently reads: 



case S_6YTE3: dsize=dirsize+padding; 



break 



To sake this coapiie correctly, you sust add a seai-colon (;) to the end of the line (after 
break' ). 



Sorry about that, we didn't catch that one in tiete. EO. 
ERRATA ERRATA ERRATA ERRATA 



ERRATA 



ERRATA 



Problems with Dirl.c 



A nuaber of our readers have had soae probleas 
with the utility diri, that we offered in the 
last newsletter. The following intonation will 
be of value to those of you who say have been 



dsize=dirsize+padding; 



1. In the line; 
6 case S.BYTE3; 
break 8 

on page 3 of the newsletter, there is a Kissing 
* ;* after the word break. 

2. The lseek call, also on page 3 ... is NOT 
iseefc(path, 641,6) 

it should be typed iseek(path f 64L,&); 

A 
Note that this character is an alpha 'ell', 
either upper or lower case, to signify a long. 
See page 3-22 of the nicroware C Coopiier nanual 
for details. 

3. If you happen to coapile this proaraaae, and 
automatical ly include the cgfx.l library in your 
linker list, you will find that the prograsae 
cospiies OK, but will not run. See below for 
details. 



but probiees can arise siapiy because of the 
logic within the code. The function that is 
used for linking in these cases, is the first 
function of that naae found. For example in 
Hike Sweet's CGFX7 library, he defines a 
function, readO. This function is also defined 
in the standard clih.i library, and as well, in 
the Kreider clib.i library. 

The trouble stems from the fact that the 
functions return different values on reaching 
EOF. (The kreider library and the standard 
library readO functions return 6 on end of 
file, but the function from the cgfx7 library 
returns -\), If you read the manual, you'll 
find that, in their own way, they both are 
correct! If you tried to compile the dirl.c 
prograsi&e that was printed in the last 
newsletter (and got past the typographical error 
mentioned above! ) t and included cgfx.l (Mike 
Sweet's version), in the link list, the 
programme would compile OK, but it will not run 
correctly. 

The solution is to simply exclude the cgfx.l 
library when performing the final link step, and 
all wiii be well. 



The problems arises because a function is 
defined in acre than one library. When this 
happens, the linker does not report an error, as 
there really is nc error condition generated, 



Also note that you need to use the Kreider 
clib.i library, rather than the standard clib.i 
library, as some of ih& functions called do not 
exist in the standard clib.i. 



CoCo-Link 

CoCo-Link is an excellent magazine to help you with the RSDOS side of the Colour Coaputer. It is a bi- 

Ermtr. !v pi^J-'inc r.'th 1 i chart hu £r Pr.l-.hiG risl-roT'i QcrH yv ,r - C! ihcr ni rvH rm>- ♦ *■ ' 
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CoCo-Link 

31 Nedlands Crescent 

Pt, Noarlunga Sth. 

South Australia 

Phone: (98) 3861647 
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Clusters 

by Brian White 

[ ED: The following article was posted to tHe INTERNET CoCo OSS discussion list by Brian White in the 
USA. We think that readers who do not have access to that list Bay find it an interesting article, 
particularly those with hard drives. The article is of a fairly technical nature, and if you have any 
problens in understanding what is being talked about, then aaybe it would be best if you did not 
attempt to make any of the changes about which he writes. <6rin>. 

we would like to take this opportunity to thank Brian for the use of this article.] 

Clusters 



Well, I did soae pokincj around into ■clusters" , 
what they aean, and how to use thea, so I 
decided to post it here for you and anyone else 
who is interested. 

First, a sector is always a sector, and an LSN 
(Logical Sector Nuaber) is always an LSN. These 
two teras should never be confused with the word 
"cluster". The RBF aanager that coaes with GS-9 
can access up to 2*24 or 16,777,216 unique 256- 
byte sectors for a grand total of 2*32 or 
4,294,967,296 bytes ii SigaBytes). . . before 
needing to undergo partitioning :-) Therefore F 
LSN-0 is always 256 bytes, a file-descriptor is 
always 256 bytes, etc., etc. Anywhere these 
teres are used in the OS-9 aanuals. they are 
used correctly. 

A "cluster 6 is a lot like the ainiaua sector 
allocation size except that it is the saae for 
all types of files and it can't be changed on 
the fiy. If the cluster size is set to 32, 
every file will allocate a aultiple of 32 
sectors (the first segaent is actually 31 
sectors plus I file-descriptor sector) and 
reaain there until it needs another cluster. 

As far as how cluster size and sector allocation 
size (SAS) work together, the initial file size 
is always 1 cluster. On disks with 1-sector 
dusters, this is used exclusively by the file- 
descriptor. After that, as soon as data is 
written past the end of a segaent, aore space is 
allocated to the file in chunks of SAS rounded 
up to the next cluster size. (eg. if cluster 
size=$«8 and SAS=$23, additional space is 
allocated in chunks of $28 sectors), yhen the 
file is closed, it is shrunk to the least used 
nuaber of clusters. 

Changing the cluster size is not as easy as you 
sight think. There is nothing about it in any 
of ay device descriptors and 'foraat' has no 
option to that effect. To change it aanually, 



you aust: 

- FORMAT the disk noraally 

- dEd/QTip the disk: 

- edit LSN-e: 



change the cluster 
(bytes $e6-$97) 



size to any power of 



divide the nusber of bytes in the allocation 
bitaap (bytes $£4-$&5) by the saae power of 2 
used above and round down to the next nearest 
byte. 



edit root directory file-desciptor: 
root fd is in LSN-G) 



(LSN of 



change the size of the first and only segaent 
so the directory ends at the end of a 
cluster. For exaaple, ay hard disk has its 
root directory file-descriptor on sector $59 
and the root directory itself starts on 
sector $51. If I wanted a cluster size of 32 
($2d), the start of the next cluster would be 
$69, so I change the size of the root 
directory's segaent, originally set to $97 by 
'foraat', to $0F ($6e-$51=$eF). If a cluster 
is not is not coapletely allocated within the 
file structure, dCheck assuaes that none of 
it is allocated. 0S-9/R8F will take care of 
all this allocation for you once the required 
aanual setup is finished. 

perfora a dCheck on the disk 

use a utility like BD/BA froa the Repack 

software package to deallocate any clusters 
that dCheck aentions (or fool around with the 

first few bytes of LSN-1 by hand using 

dEd/QTip until dCheck reports a clean disk). 

DCheck always reports clusters by the LSN 

they start on. BA and BD handle these LSN's 
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properly to fiddle with the correct bits in 
the allocation aap. 

- You now have a disk with whatever cluster 
size you put in bytes $06-$»7. 

(This is really easier than it sounds... 
honest!) 

yhile playing around with this, I discovered 
that 'dCheck' seeas to have a small bug in it 
that causes it not to check the last byte of the 
allocation bitaap! So if you start playing 
around with more than is said above and find 
that dCheck is not bothering to aention the MM 
allocated sectors at the end of the disk that 
should be free, it's dCheck's fault, not yours. 
RBF seeas to handle everything just fine. 
'Free' has a siailar bug which causes it to 
analyze the entire last byte even if soie of 
it's bits aren't used. Rounding down LSNO's 
bytes *<M-$05 will cause up to 7 clusters never 
to be used, but will work around both of these 
bugs. 

I have aoved files to ay disk after setting it 
to various cluster sizes and have had no 
problees with 0S-9/RBF in any way. This 



wonderful feature seeffis to be fully implemented 
except for turning it on. 

Anyone who edits over aultiple windows, saving 
fros all of them often, knows that the files 
fraqaent into many ]-sector segments quite 
quickly. This cluster size can help solve that 
problea because a 1-secior file in a 32-sector 
cluster still has lots of space to expand into 
before another segaent is needed. 

With the upcoaing wide-spread use of OS-9/68$06 
(or OS-k), RBF has an added feature of being 
able to handle devices with sector sizes of 
larger than 25b bytes. How this will be 
handled, I don't know. I would guess, since the 
OS-k file structure is identical to that of 0S- 
9, that it just internally splits each sector up 
into 256-byte chunks and then sets the cluster 
size accordingly to avoid file fragaentation 
within a sector, (eg a 512-byte sector would 
get a Bin cluster size of 2 while a 2048-byte 
sector would get a ain cluster size of 8, etc.). 

Hope all this is of use to soaeone... 

Brian Unite. 



ooooooooooGOOGGGDGGDoooooooooo 

HodPatch Probleas 
Taken froa the BitNet aessaqe systea. 

Q: Now that I can use the SCII/4inl, I tried to run the aciapak patch included with K6C0H. It claias 
that none of the data aatches when it goes to patch. I checked the crc value in the header of the 
patch against the ident of the aciapak aodule and it seeas to be the correct one. Aa I aissing 
soaething. 

A; I think I know what the problea is. aodpatch has a saall bug which aay be biting you. Edit the 
aodpatch file and aake sure that there is always at LEAST one character after each 'i', ie, change 
the lines containing only B V so that they contain s t s and see if that helps. 

As I reaeaber, the aodpatch file contains a bunch of coseents, ending like: 

i 

I aciapak 

c 

But since there is no character following the '*', the newline is getting swallowed and 8 1 aciapak 8 
becoaes part oi the coaaent! And you haven't linked to a aodule , so of course none of the bytes 
Batch. Greg Law discovered this doozy. 

ooooooooooOOOOOOQOODooocoooooo 



Page 8 



June 1991 



AUSTRALIAN QS9 NEWSLETTER 



FREE - A bug-free version 

written by Mark Griffith et al 

[ED; This source code saipie has coae to us via the BitNet aessage system, froa Mark Griffith. Because 
of its length, this part one. Don't aiss the next issue! J 



In response to: 

Q: Free returned the sase thing... wasn't there a bug in one version of free that returned the value 
for large drives wrong? 

TiB K. says: 

A: The version of "free" distributed with soae of the SShell patches had such a bug. 

That version of Free did have a buglet with large drives. I only had a 2» »eg at the Use to test it 
with. The bug was soon discovered and fixed. The fixed version has been on CIS for a few years so it 
should be Baking the BBS rounds by now (grin). I've included it here for those who don't have it. 



% 

% A new FREE coaaand for use with Hulti-Vue 

i 

i Gives the nusher of bytes free instead of 

t sectors -- works just like the original FREE 

t coaaand. 

% 

i Syntax: Free Edev] 

t 

t or clicking on the FREE selection after popping 

i down the DISK aenu fro* Hulti-Vue wiii give 

t the free space resaining on the device currently 

i being used. 

i 

i This utility has been updated to insure an accurate count 

i of the regaining disk space on devices that can store up 

t to 4.3 GISAbyies — so it should work on any hard disk. 

t 

i This source is for asseabling with ASH and not RHA. 

i Much of this code was taken froa the PD prograa LSH 

t available elsewhere in this Forua. 

t 

t Hark Griffith [7667M1] 

* 

t Additional help froa Kent Heyers (thanks Kent!) 

i Hinor hacks aade by Bruce Isted 

$ Second ainor hack for Total Sectors by Don Berrie 9ttf53tf 

nan F.Ree 

til New FREE coaaand for Hulti-Vue 

ifpl 

use /dd/DEFS/os9defs 

endc 

ttiti REVISION and EDITION ttttt 
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edition set 3 

rev set reent+edition 

type set prgra+objct 

%tt The MODULE header aacro tit 

mod endaod,na&e, type, rev, star t,endata 
tttitttt Data Area tttttttt 

org 6 



descpt 


rab 


256 


Storage for path descpt 


tempi 


rab 




Scratch aeaory 


teap2 


rsb 


2 


Scratch aeaory 


overflow r»b 


2 


Scratch aeaory 


inpath 


rib 


1 


Input path nuaber 


devnas 


rab 


fa 


Device naae 


total 


rib 


4 


Nbr sectors on disk 


nfree 


rah 


4 


Nbr of free sectors 


volnaae 


rah 


32 


Disk voluae nase 




reb 


2ee 


ainiaua stack recoaaended 


endata 


equ 







naae fcs /FRee/ 
fcb edition 
pag 

tmmmmttmmimttntmmttttmtitixmm 
i i 

t MAIN PROGRAM CODE t 

i t 

tmmmtmtmmmmttmtmitmmmttmn 



start- 



ecu 





leay 


devnaa , u 






Ida 


|X+ 


Get the first character 




capa 


tied 


Is it a carriage return? 




beq 


open 


Yes, then go open the disk 




capa 


17 


Is it a slash? 




beq 


copy 


Then copy the device naae 


exit 


053 


f$exit 


Finish and exit 


copy 


sta 


,y + 


Store the character already go 


copy] 


Ida 


x+ 


Get the next one 




capa 


• '/ 


Is it another slash? 




beq 


open 






capa 


«9d 


Is it a carriage return 




beq 


open 






capa 


im 


or a space? 




beq 


open 






sta 


,y + 


If none of the above, store it 




bra 


copy! 


Go get soee sore 


ooen 


Idd 


mm 


Get a B *CR B 



Page 1 



June 1991 



AUSTRALIAN 0S9 NEWSLETTER 



std ,y Append it to devnaae 

Ida II Open for read only 

leax devnan.u Point to the naae 

os9 iiopen Open the disk as a file 

bcs exit Exit if an error on open 

sta inpath,u Store the path nusber 

t Read in the voluae naae and path descriptor t 

getvol Idx 10 del ready to seek to LSNO 

pshs u save U 

tfr x,u 

osS itseek Set file pointer to LSNO 

puis u Restore U 

bcs exit Exit if an error occured 

leax descpt,u Point to the descp. buffer 

Idy #25b 

osS i$read Now read in the descriptor 

bcs exit Exit if an error occured 

i Save total size h voluae naae t 

pshs x 

leax tf,x Point to total sectors 

ieay total ,u 

ldb 13 Set counter 

Ida ttf Duaay value ''cause 4 bytes 

sta ; y+ 

svtotld Ida ,x+ Save char 

sta ,y+ in buffer 

decb 

bne svtotN? More if not done 

puis x Reset pointer 

pshs x 

leax $lf,x Point to voiuse naae buffer 

leay vol name, u 

ldb #32 Set the counter 

svna«18 Ida ,x+ Nov save a character 

sta ,y+ in the buffer 

decb 

bne svnaaltf Get soae sore if not done 

puis x 

i Read free sector bit sap froa sector 1 t 

vol 11 Idd $64 ,x Get nbr of bytes in aap 

std tespi ,11 Store it 

Idd $66, x Set sectors per cluster 

std teap2,u and store that too 

Li. , - 

leax descpt,u Read in first part of bit aap 

idy #256 

Ida inpathjU 

os'3 i$read 

Ibcs exit Exit if an error occured 

i Add up all the e's in the bit aap t 
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ldd te 

X BR I : Rinor fix, as in Level 2 U=» always 

std overflow^ Set overflow to. zero 

* std overflow Set overflow to zero 



vol25 


ldy 


#8 


Mbr of bits 


vol"30 


lsr 


,x 






DCS 


voI3S 


check bit 




addd 


il 


add one 




bne 


vol 35 






inc 


overflow+1 


." 


vol 35 


leay 


-i,y 


bit counter 




bne 


vol36 






leax 


I,x 


eap pointer 




ldy 


teipl,u 






beq 


vol37 






dec 


,5 






bne 


vol3b 






pshs 


d,Y 






Ida 


inpath,u 






leax 


descpt,u 






ldy 


#2Sb 






os9 


i$read 






Ibcs 


exit 






puis 


diY 




vol 36 


ieay 


-f,y 


byte counter 




sty 


tespi ; u 






bne 


voI25 






ldy 


overt low,u 





* BRI: V is not always 6 

t tiaes sectors per cluster = 24 bits 

t 

t BRI; fixed set up for free sectors calculation, added DO. BIT check 

vo!37 pshs d save free clusters LSBs for free sectors calculation 

Idx te»p2,u DD.BIT sectors per cluster 

beq voUS DD.BIT=6 illegal, go report as one sector dusters 

tvol37 Idx teep2,u OD.BIT sectors per cluster 

ooooooooooOQOOOOQGOOoooooooooo 



FOR SALE 

DISTO 512k UPGRADE 

Used only on Sundays by a little old lady. (Has had little use) 

ONLY i75.ee 

Contact;- Rob Hackay »7 8G738&2 (evenings). 
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